home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 37 / CD Expert nº 37.iso / LastCall / lastcall.exe / stuff / lastcall.dxr / 00060_tester screen action popup.ls < prev    next >
Encoding:
Text File  |  2000-03-27  |  752 b   |  38 lines
  1. property pSpr
  2.  
  3. on beginSprite me
  4.   pSpr = sprite(me.spriteNum)
  5. end
  6.  
  7. on mouseEnter
  8.   actions = currentActions()
  9.   pSpr.member.boxType = #scroll
  10.   pSpr.height = 75
  11.   text = EMPTY
  12.   repeat with X = 1 to count(actions)
  13.     text = text & getPropAt(actions, X) & RETURN
  14.   end repeat
  15.   delete char -30000 of text
  16.   pSpr.member.text = text
  17. end
  18.  
  19. on mouseLeave
  20.   pSpr.height = 25
  21. end
  22.  
  23. on mouseDown me
  24.   global gCurrentIndex
  25.   actions = currentActions()
  26.   boxType = pSpr.member.boxType
  27.   updateStage()
  28.   thisLine = the mouseLine
  29.   repeat while the stillDown
  30.     updateStage()
  31.   end repeat
  32.   if (thisLine > 0) and (thisLine <= count(actions)) then
  33.     hilite line thisLine of field the member of pSpr
  34.     gCurrentIndex = thisLine
  35.     updateDisplay(1)
  36.   end if
  37. end
  38.